home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 May / 1984-05.d64 / sound story (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  56 lines
  1. 100 poke 36879,108:v=36878
  2. 110 print"[147]":fori=1to7:print:next:printtab(6)"sound story"
  3. 120 forl=1to3000:next
  4. 130 print"[147]":poke36879,8:fori=1to9:print:next
  5. 140 printtab(2)"[159]it was a dark and     ":printtab(4)"stormy night..."
  6. 150 pokev,15:s=36874:forl=1to2000:next
  7. 160 pokes,195:forl=1to600:next:pokes,201:forl=1to200:next
  8. 170 pokes,203:forl=1to300:next:pokes,0:forl=1to100:next
  9. 180 pokes,195:forl=1to200:next:pokes,0:forl=1to200:next
  10. 190 fort=1to12:pokes,211:forl=1to50:next:pokes,213:forl=1to50:next:next:pokes,0
  11. 200 print"[147]":forl=1to1000:next:poke36879,25:s=36877
  12. 210 forl=250to200step-1:pokes,l:next:pokes,0:poke36879,8:forl=1to100:next
  13. 220 poke36879,25:forl=250to200step-1:pokes,l:next:pokes,0:poke36879,8
  14. 230 forl=15to4step-.04:pokev,l:pokes,130:next
  15. 240 poke36878,15:poke36879,25:forl=250to180step-1:pokes,l:next:pokes,0:poke36879,8
  16. 250 forl=15to1step-.03:pokev,l:pokes,128:next
  17. 260 fori=1to6:print:next:print"   suddenly, off in":print:print" the distance, a train"
  18. 270 printtab(7)"went by..."
  19. 280 forl=1to4000:next
  20. 290 print"[147]":l=1
  21. 300 ford=200to15step-5:l=l+.3:pokev,l
  22. 310 pokes,200:fort=1to60:nextt:pokes,0:fort=1tod:nextt:nextd
  23. 320 forl=15to0step-.3:pokev,l:pokes,200:fort=1to40:nextt:pokes,0:fort=1to40:nextt:nextl
  24. 330 fori=1to8:print:next:printtab(4)"then the train":print:printtab(3)"engineer heard "
  25. 340 printtab(18)"[145]a":print:printtab(4)"flying saucer!"
  26. 350 forl=1to4000:next
  27. 360 print"[147]":c=36879:pokec,138:pokev,15:s=36874:gosub430
  28. 370 pokec,110:gosub440
  29. 380 pokec,25:gosub430
  30. 390 pokec,93:gosub440
  31. 400 pokec,127:gosub430
  32. 410 pokec,76:gosub440
  33. 420 pokec,8:pokes,0:goto450
  34. 430 forl=180to254:pokes,l:form=1to5:nextm:pokes,0:nextl:return
  35. 440 forl=254to180step-1:pokes,l:form=1to5:nextm:pokes,0:nextl:return
  36. 450 print"[147]":fori=1to8:print:next:print"   a secret message"
  37. 460 print:printtab(3)"was sent..."
  38. 470 form=1to30:pokev,15:poke36876,200:forl=1to(int(rnd(1)*80)):next
  39. 480 poke 36876,0:forl=1to(int(rnd(1)*80)):next:next
  40. 490 print"[147]":fori=1to9:print:next:printtab(5)"a ping pong"
  41. 500 print:printtab(5)"ball dropped!"
  42. 510 pokev,15:s=36874
  43. 520 ford=200to0step-5:pokes,250:fort=1to2:nextt:pokes,0:fort=1tod:nextt:nextd
  44. 530 print"[147]":fori=1to7:print:next:printtab(3)"the storm ended,"
  45. 540 print:printtab(2)"the stars came out,"
  46. 550 print:printtab(2)" and the crickets":print:printtab(2)"started chirping..."
  47. 560 forl=1to5000:next
  48. 570 print"[147]":poke36879,104:forl=1to20
  49. 580 x=int(rnd(1)*506)
  50. 590 poke7680+x,46:poke38400+x,7:next
  51. 600 s=36876:forl=15to1step-.5:pokev,l
  52. 610 forn=1to5:pokes,243:fort=1to3:nextt:pokes,0:fort=1to8:nextt
  53. 620 nextn:fort=1to100:nextt:nextl
  54. 630 fori=1to10:print:next:printtab(8)"[158]the end"
  55. 640 forl=1to3000:next:print"[147]":poke36879,27:end
  56.